home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / have_a_look_here_first! / arteffect.demo / arteffect install-script < prev    next >
Text File  |  1996-07-30  |  4KB  |  149 lines
  1. ; $VER: ArtEffect V1.1 Install Version 1.1 (2.7.96)
  2. ; Installatiert ArtEffect auf der Festplatte
  3. ;
  4. ; (c) 1996 HAAGE & PARTNER Computer GmbH
  5.  
  6. (complete 0)
  7.  
  8. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  9. ; Versionen.
  10.  
  11. (set ae-version "1.1")
  12. (set ae-date "(02 Jul 96)")
  13.  
  14. ;====================================================================
  15. ; Initialisierungen
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
  27.  
  28. ; Die Pfadnamen der einzelnen Quell-Dateien.
  29.  
  30. (set #libfile (tackon (pathonly @icon) "LIBS/BGUI.library")) ; Hier stehen die Bibliothek
  31.  
  32. (set #prp-copy-lib
  33.     "Copying BGUI-Library...\n")
  34.  
  35. (set #hlp-copy-lib
  36.     "Program will not run without BGUI-Library!")
  37.  
  38. (if (= @language "deutsch") (
  39.  
  40.     (set #prp-copy-lib
  41.         "Kopiere die BGUI-LIBRARY\n")
  42.  
  43.     (set #hlp-copy-lib
  44.         "Ohne die BGUI-Library funktioniert nichts!")
  45. ))
  46. ;=====================================================================================
  47. ; Beginn der Installation
  48. ;=====================================================================================
  49.  
  50. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  51.  
  52. (set act-user-level @user-level)
  53. (user 1)
  54.  
  55.  
  56. (if (<> @language "deutsch") (
  57.  
  58. (message (cat "\nWelcome at installation of \n\nArtEffect Demo "
  59.     ae-version " of "ae-date "\!\n\n"
  60.     "This script copies BGUI-Library to your hard disk "
  61.     "and adds an Assign to your user-startup.\n\n"
  62.     "© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
  63. ))
  64.  
  65.  
  66. (if (= @language "deutsch") (
  67.  
  68.     (message (cat   "\nWillkommen bei der Installation der \n\n\"ArtEffect-Demoversion "
  69.                      ae-version " vom "ae-date "\"!\n\n"
  70.                     "Dieses Skript kopiert die BGUI-Library für ArtEffect "
  71.                     "auf Ihre Festplatte und erzeugt einen Assign.\n\n\n"
  72.                     "© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
  73. ))
  74.  
  75. (user act-user-level)
  76. (welcome)
  77.  
  78.  
  79. (complete 5)
  80.  
  81. ; BGUI.Library in die Libs-Schublade kopieren!
  82.  
  83. (copylib
  84.         (prompt #prp-copy-lib)
  85.         (help #hlp-copy-lib)
  86.         (source #libfile)
  87.         (dest "LIBS:")
  88.         (confirm)
  89. )
  90.  
  91. (complete 95)
  92.  
  93. ; ------- STARTUP ÄNDERN
  94.  
  95. (set command1 (cat  "ASSIGN ARTEFFECT: " (pathonly @icon) ""))
  96.  
  97. (set command1.txt
  98.         (cat
  99.  
  100.         "\n\n\nThere must be a change in your user-startup "
  101.         "to get ArtEffect to run!\n\n"
  102.         command1
  103.         )
  104. )
  105.  
  106. (if (= @language "deutsch") (
  107.  
  108.    (set command1.txt
  109.         (cat 
  110.         "\n\n\nUm mit ArtEffect richtig arbeiten zu "
  111.         "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  112.         command1
  113.         )
  114.    )
  115.  
  116. ))
  117.  
  118. (startup "ArtEffect"
  119.         (prompt command1.txt)
  120.         (help #help-startup)
  121.         (command command1)
  122. )
  123.  
  124. (makeassign "ARTEFFECT")
  125. (makeassign "ARTEFFECT" (pathonly @icon))
  126.  
  127. (complete 100)
  128.  
  129. ; ------- FERTIG
  130.  
  131. (if (= @language "deutsch")
  132.     (
  133.  
  134.         (message (cat
  135.         "\nInstallation von ArtEffect beendet.\n\n"
  136.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  137.         "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  138.         "\n\nWir wünschen ihnen viel Spaß mit ArtEffect !"))
  139.     )
  140.     (
  141.         (message (cat
  142.         "\nInstallation of ArtEffect completet!\n\n"
  143.         "If the line:\n" command1 "\ndoes not appear in your user-startup "
  144.         "you should do this by hand.\n\n\n"
  145.         "Best wishes..."))
  146.     )
  147. )
  148.  
  149.